home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- Integer INTEGER001
- String STRING001
- String STRING002
- String STRING003
- String STRING004
- String STRING005
- String STRING006
- String STRING007
- String STRING008
- String STRING009
- String STRING010
- String STRING011
- String STRING012
- String STRING013
- String STRING014
- String STRING015
- String STRING016
- String STRING017
- String STRING018
- String STRING019
- String STRING020
- String STRING021
- String STRING022
- String STRING023
- String STRING024
- String STRING025
- String STRING026
- String STRING027
- String STRING028
- String STRING029
- String STRING030
- String STRING031
- String STRING032
- String STRING033
- String STRING034
- String STRING035
- String STRING036
- String STRING037
- String STRING038
- String STRING039
- String STRING040
- String STRING041
- String STRING042
- String STRING043
- String STRING044
- String STRING045
- String STRING046
- String STRING047
- String STRING048
- String STRING049
- String STRING050
- String STRING051
- String STRING052
- String STRING053
- String STRING054
- String STRING055
- String STRING056
- String STRING057
- String STRING058
- String STRING059
- String STRING060
- String STRING061
- String STRING062
- String STRING063
- String STRING064
- String STRING065
- String STRING066
- String STRING067
- String STRING068
-
- ;------------------------------------------------------------------------------
-
- Log "MUR^DOOR^Version^1.o^Entered^Normally!", 0
- If (Exist(PPEPath() + "MUR-DOOR.CFG")) Goto LABEL001
- PrintLn "@CLS@"
- PrintLn "@X0CE@X04rror! @X0Cp@X04pe @X0Cc@X04ould @X0Cn@X04ot @X0Cf@X04ind @X0Cc@X04onfig @X0Cf@X04ile!"
- PrintLn "@X0Bn@X03otify @X0Bs@X03ysop @X0Bi@X03mmidiately!"
- PrintLn "@X09Returning to " + ReadLine(PCBDat(), 94)
- PrintLn ""
- PrintLn ""
- Wait
- End
- :LABEL001
- FOpen 1, PPEPath() + "MUR-DOOR.CFG", 0, 2
- FGet 1, STRING001
- FGet 1, STRING002
- FGet 1, STRING003
- FGet 1, STRING004
- FGet 1, STRING005
- FGet 1, STRING006
- FGet 1, STRING007
- FGet 1, STRING008
- FGet 1, STRING009
- FGet 1, STRING010
- FGet 1, STRING011
- FGet 1, STRING012
- FGet 1, STRING013
- FGet 1, STRING014
- FGet 1, STRING015
- FGet 1, STRING016
- FGet 1, STRING017
- FGet 1, STRING018
- FGet 1, STRING019
- FGet 1, STRING020
- FGet 1, STRING021
- FGet 1, STRING022
- FGet 1, STRING023
- FGet 1, STRING024
- FGet 1, STRING025
- FGet 1, STRING026
- FGet 1, STRING027
- FGet 1, STRING028
- FGet 1, STRING029
- FGet 1, STRING030
- FGet 1, STRING031
- FGet 1, STRING032
- FClose 1
- STRING033 = "@X09 " + STRING001 + " " + "@X07 - " + STRING002
- STRING034 = "@X31 " + STRING001 + " " + "@X07 - " + STRING002
- STRING035 = "@X09 " + STRING003 + " " + "@X07 - " + STRING004
- STRING036 = "@X31 " + STRING003 + " " + "@X07 - " + STRING004
- STRING037 = "@X09 " + STRING005 + " " + "@X07 - " + STRING006
- STRING038 = "@X31 " + STRING005 + " " + "@X07 - " + STRING006
- STRING039 = "@X09 " + STRING007 + " " + "@X07 - " + STRING008
- STRING040 = "@X31 " + STRING007 + " " + "@X07 - " + STRING008
- STRING041 = "@X09 " + STRING009 + " " + "@X07 - " + STRING010
- STRING042 = "@X31 " + STRING009 + " " + "@X07 - " + STRING010
- STRING043 = "@X09 " + STRING011 + " " + "@X07 - " + STRING012
- STRING044 = "@X31 " + STRING011 + " " + "@X07 - " + STRING012
- STRING045 = "@X09 " + STRING013 + " " + "@X07 - " + STRING014
- STRING046 = "@X31 " + STRING013 + " " + "@X07 - " + STRING014
- STRING047 = "@X09 " + STRING015 + " " + "@X07 - " + STRING016
- STRING048 = "@X31 " + STRING015 + " " + "@X07 - " + STRING016
- STRING049 = "@X09 " + STRING017 + " " + "@X07 - " + STRING018
- STRING050 = "@X31 " + STRING017 + " " + "@X07 - " + STRING018
- STRING051 = "@X09 " + STRING019 + " " + "@X07 - " + STRING020
- STRING052 = "@X31 " + STRING019 + " " + "@X07 - " + STRING020
- STRING053 = "@X09 " + STRING021 + " " + "@X07 - " + STRING022
- STRING054 = "@X31 " + STRING021 + " " + "@X07 - " + STRING022
- STRING055 = "@X09 " + STRING023 + " " + "@X07 - " + STRING024
- STRING056 = "@X31 " + STRING023 + " " + "@X07 - " + STRING024
- STRING057 = "@X09 " + STRING025 + " " + "@X07 - " + STRING026
- STRING058 = "@X31 " + STRING025 + " " + "@X07 - " + STRING026
- STRING059 = "@X09 " + STRING027 + " " + "@X07 - " + STRING028
- STRING060 = "@X31 " + STRING027 + " " + "@X07 - " + STRING028
- STRING061 = "@X09 " + STRING029 + " " + "@X07 - " + STRING030
- STRING062 = "@X31 " + STRING029 + " " + "@X07 - " + STRING030
- STRING063 = "@X09 " + STRING031 + " " + "@X07 - " + STRING032
- STRING064 = "@X31 " + STRING031 + " " + "@X07 - " + STRING032
- STRING065 = "@X08| @X31 QUIT @X07 - Well obviously this is the exit..!"
- STRING066 = "@X08| @X09QUIT @X07- Well obviously this is the exit..!"
- If (Exist(PPEPath() + "MUR-DOOR.PCB")) Goto LABEL002
- PrintLn "@CLS@"
- PrintLn "@X0CE@X04rror! @X0Cp@X04pe @X0Cc@X04ould @X0Cn@X04ot @X0Cf@X04ind @X0Cg@X04rafixs @X0Cf@X04ile!"
- PrintLn "@X0Bn@X03otify @X0Bs@X03ysop @X0Bi@X03mmidiately!"
- PrintLn "@X09Returning to " + ReadLine(PCBDat(), 94)
- PrintLn ""
- PrintLn ""
- Wait
- End
- :LABEL002
- PrintLn "@POFF@"
- Cls
- DispFile PPEPath() + "MUR-DOOR.PCB", 0
- AnsiPos 3, 5
- Print STRING033
- AnsiPos 3, 6
- Print STRING035
- AnsiPos 3, 7
- Print STRING037
- AnsiPos 3, 8
- Print STRING039
- AnsiPos 3, 9
- Print STRING041
- AnsiPos 3, 10
- Print STRING043
- AnsiPos 3, 11
- Print STRING045
- AnsiPos 3, 12
- Print STRING047
- AnsiPos 3, 13
- Print STRING049
- AnsiPos 3, 14
- Print STRING051
- AnsiPos 3, 15
- Print STRING053
- AnsiPos 3, 16
- Print STRING055
- AnsiPos 3, 17
- Print STRING057
- AnsiPos 3, 18
- Print STRING059
- AnsiPos 3, 19
- Print STRING061
- AnsiPos 3, 20
- Print STRING063
- AnsiPos 1, 21
- Print STRING066
- :LABEL003
- AnsiPos 1, 21
- Print STRING066
- AnsiPos 3, 5
- Print STRING034
- AnsiPos 3, 6
- Print STRING035
- :LABEL004
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL035
- If (STRING067 == "DOWN") Goto LABEL005
- If (STRING067 == Chr(13)) Goto LABEL037
- Goto LABEL004
- :LABEL005
- AnsiPos 3, 5
- Print STRING033
- AnsiPos 3, 6
- Print STRING036
- AnsiPos 3, 7
- Print STRING037
- :LABEL006
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL003
- If (STRING067 == "DOWN") Goto LABEL007
- If (STRING067 == Chr(13)) Goto LABEL038
- Goto LABEL006
- :LABEL007
- AnsiPos 3, 6
- Print STRING035
- AnsiPos 3, 7
- Print STRING038
- AnsiPos 3, 8
- Print STRING039
- :LABEL008
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL005
- If (STRING067 == "DOWN") Goto LABEL009
- If (STRING067 == Chr(13)) Goto LABEL039
- Goto LABEL008
- :LABEL009
- AnsiPos 3, 7
- Print STRING037
- AnsiPos 3, 8
- Print STRING040
- AnsiPos 3, 9
- Print STRING041
- :LABEL010
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL007
- If (STRING067 == "DOWN") Goto LABEL011
- If (STRING067 == Chr(13)) Goto LABEL040
- Goto LABEL010
- :LABEL011
- AnsiPos 3, 8
- Print STRING039
- AnsiPos 3, 9
- Print STRING042
- AnsiPos 3, 10
- Print STRING043
- :LABEL012
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL009
- If (STRING067 == "DOWN") Goto LABEL013
- If (STRING067 == Chr(13)) Goto LABEL041
- Goto LABEL012
- :LABEL013
- AnsiPos 3, 9
- Print STRING041
- AnsiPos 3, 10
- Print STRING044
- AnsiPos 3, 11
- Print STRING045
- :LABEL014
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL011
- If (STRING067 == "DOWN") Goto LABEL015
- If (STRING067 == Chr(13)) Goto LABEL042
- Goto LABEL014
- :LABEL015
- AnsiPos 3, 10
- Print STRING043
- AnsiPos 3, 11
- Print STRING046
- AnsiPos 3, 12
- Print STRING047
- :LABEL016
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL013
- If (STRING067 == "DOWN") Goto LABEL017
- If (STRING067 == Chr(13)) Goto LABEL043
- Goto LABEL016
- :LABEL017
- AnsiPos 3, 11
- Print STRING045
- AnsiPos 3, 12
- Print STRING048
- AnsiPos 3, 13
- Print STRING049
- :LABEL018
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL015
- If (STRING067 == "DOWN") Goto LABEL019
- If (STRING067 == Chr(13)) Goto LABEL044
- Goto LABEL018
- :LABEL019
- AnsiPos 3, 12
- Print STRING047
- AnsiPos 3, 13
- Print STRING050
- AnsiPos 3, 14
- Print STRING051
- :LABEL020
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL017
- If (STRING067 == "DOWN") Goto LABEL021
- If (STRING067 == Chr(13)) Goto LABEL045
- Goto LABEL020
- :LABEL021
- AnsiPos 3, 13
- Print STRING049
- AnsiPos 3, 14
- Print STRING052
- AnsiPos 3, 15
- Print STRING053
- :LABEL022
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL019
- If (STRING067 == "DOWN") Goto LABEL023
- If (STRING067 == Chr(13)) Goto LABEL046
- Goto LABEL022
- :LABEL023
- AnsiPos 3, 14
- Print STRING051
- AnsiPos 3, 15
- Print STRING054
- AnsiPos 3, 16
- Print STRING055
- :LABEL024
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL021
- If (STRING067 == "DOWN") Goto LABEL025
- If (STRING067 == Chr(13)) Goto LABEL047
- Goto LABEL024
- :LABEL025
- AnsiPos 3, 15
- Print STRING053
- AnsiPos 3, 16
- Print STRING056
- AnsiPos 3, 17
- Print STRING057
- :LABEL026
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL023
- If (STRING067 == "DOWN") Goto LABEL027
- If (STRING067 == Chr(13)) Goto LABEL048
- Goto LABEL026
- :LABEL027
- AnsiPos 3, 16
- Print STRING055
- AnsiPos 3, 17
- Print STRING058
- AnsiPos 3, 18
- Print STRING059
- :LABEL028
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL025
- If (STRING067 == "DOWN") Goto LABEL029
- If (STRING067 == Chr(13)) Goto LABEL049
- Goto LABEL028
- :LABEL029
- AnsiPos 3, 17
- Print STRING057
- AnsiPos 3, 18
- Print STRING060
- AnsiPos 3, 19
- Print STRING061
- :LABEL030
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL027
- If (STRING067 == "DOWN") Goto LABEL031
- If (STRING067 == Chr(13)) Goto LABEL050
- Goto LABEL030
- :LABEL031
- AnsiPos 3, 18
- Print STRING059
- AnsiPos 3, 19
- Print STRING062
- AnsiPos 3, 20
- Print STRING063
- :LABEL032
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL029
- If (STRING067 == "DOWN") Goto LABEL033
- If (STRING067 == Chr(13)) Goto LABEL051
- Goto LABEL032
- :LABEL033
- AnsiPos 3, 19
- Print STRING061
- AnsiPos 3, 20
- Print STRING064
- AnsiPos 1, 21
- Print STRING066
- :LABEL034
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL031
- If (STRING067 == "DOWN") Goto LABEL035
- If (STRING067 == Chr(13)) Goto LABEL052
- Goto LABEL034
- :LABEL035
- AnsiPos 3, 5
- Print STRING033
- AnsiPos 3, 20
- Print STRING063
- AnsiPos 1, 21
- Print STRING065
- :LABEL036
- STRING067 = Inkey()
- If (STRING067 == "UP") Goto LABEL033
- If (STRING067 == "DOWN") Goto LABEL003
- If (STRING067 == Chr(13)) Goto LABEL053
- Goto LABEL036
- :LABEL037
- STRING068 = STRING001
- Goto LABEL054
- :LABEL038
- STRING068 = STRING003
- Goto LABEL054
- :LABEL039
- STRING068 = STRING005
- Goto LABEL054
- :LABEL040
- STRING068 = STRING007
- Goto LABEL054
- :LABEL041
- STRING068 = STRING009
- Goto LABEL054
- :LABEL042
- STRING068 = STRING011
- Goto LABEL054
- :LABEL043
- STRING068 = STRING013
- Goto LABEL054
- :LABEL044
- STRING068 = STRING015
- Goto LABEL054
- :LABEL045
- STRING068 = STRING017
- Goto LABEL054
- :LABEL046
- STRING068 = STRING019
- Goto LABEL054
- :LABEL047
- STRING068 = STRING021
- Goto LABEL054
- :LABEL048
- STRING068 = STRING023
- Goto LABEL054
- :LABEL049
- STRING068 = STRING025
- Goto LABEL054
- :LABEL050
- STRING068 = STRING027
- Goto LABEL054
- :LABEL051
- STRING068 = STRING029
- Goto LABEL054
- :LABEL052
- STRING068 = STRING031
- Goto LABEL054
- :LABEL053
- STRING068 = "quit"
- :LABEL054
- PrintLn "@CLS@@POFF@"
- INTEGER001 = 0
- :LABEL055
- INTEGER001 = INTEGER001 + 1
- AnsiPos 34, 12
- PrintLn "@X0F[@X0BG@X03enocide^@X0BM@X03UR@X0F]"
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03enocide^@X0BM@X03U@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03nocide^@X0BM@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03ocide^@X0B@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03cide@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03id@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X0F] "
- Delay 2
- AnsiPos 34, 12
- PrintLn "@X0F [@X03id@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03cide@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03ocide^@X0B@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03nocide^@X0BM@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F [@X03enocide^@X0BM@X03U@X0F] "
- Delay 1
- AnsiPos 34, 12
- PrintLn "@X0F[@X0BG@X03enocide^@X0BM@X03UR@X0F]"
- Delay 1
- If (INTEGER001 == 2) Goto LABEL056
- Goto LABEL055
- :LABEL056
- If (STRING068 == "quit") Goto LABEL057
- If (STRING068 == "NONE") Goto LABEL057
- If (STRING068 == "none") Goto LABEL057
- KbdStuff STRING068 + Chr(13)
- :LABEL057
- Log "MUR-DOOR Exited Normally..", 0
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 2 End
- ; 1 Cls
- ; 2 Wait
- ; 92 Goto
- ; 70 Let
- ; 68 Print
- ; 27 PrintLn
- ; 57 If
- ; 1 DispFile
- ; 1 FOpen
- ; 1 FClose
- ; 32 FGet
- ; 2 Log
- ; 13 Delay
- ; 1 KbdStuff
- ; 81 AnsiPos
- ;
- ;
- ; ■ Functions used :
- ;
- ; 136 +
- ; 55 ==
- ; 18 Chr()
- ; 17 Inkey()
- ; 2 PCBDat()
- ; 4 PPEPath()
- ; 2 ReadLine()
- ; 2 Exist()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : d
- ;
- ; d - Access PCBOARD.DAT ■ 2
- ; Program gets the full pathname to PCBOARD.DAT, this may be usefull
- ; for many PPE so they can find various informations on the system
- ; (system paths, max number of lines in messages, ...) but it may also
- ; be a way to gather vital informations.
- ; ■ Search for : PCBDAT()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 0 While/EndWhile
- ; 0 If/Then or If/Then/Else
- ; 0 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-